<%@LANGUAGE="VBSCRIPT"%>
<%
function getColorByDataAssignments(tmprs)
if (tmprs.eof) then
getColorByDataAssignments="0"
else
getColorByDataAssignments = "B0BECC"
end if
end function
dim Conn, strSql, rs, strMessage
set Conn = server.createobject("ADODB.Connection")
Conn.open strConn
%>
| |
<%
if request("ID") = "" then
response.redirect "/"
else
if isnumeric(request("ID")) then
set rs = server.createobject("ADODB.Recordset")
strSql = "select * from tblEvent where Event_ID_PK = " & request("ID")
rs.CursorLocation=3
rs.open strSql, Conn
if not rs.eof then
%>
| |
<%= formatdatetime(rs("theDate"), vbLongDate) %> |
|
| |
<%
ID_FK = rs("Event_ID_PK")
%>
| <%= left(rs("theTime"),2) + ":" + right(rs("theTime"),2) + " " + rs("AMPM") %> |
| <%= AddBrToCrLf(rs("theText"))%>
|
|
<%
rs.close
%>
|
<%
end if
%>
<%
end if
%>
|
 |
<%
' upcoming events
set rs2 = server.createobject("adodb.recordset")
strSql = "select top 4 tblEvent.*, tblIcon.ImgFile FROM tblEvent LEFT JOIN tblIcon ON tblEvent.Icon_ID_FK = tblIcon.Icon_ID_PK where tblEvent.theDate >=date() order by tblEvent.theDate"
rs2.open strSql, Conn
%>
<%
If Not rs2.EOF Then
%>
 " width="89" height="52"> |
|
<%
'If Len(rs2("theText")) > 80 Then dot = ".." Else dot = ""
response.write formatdatetime(rs2("theDate"), vbShortDate)
response.write "
"
response.write rs2("title")
rs2.MoveNext
%>
|
<%
End If
If Not rs2.EOF Then
%>
| " width="89" height="52"> |
|
<%
response.write formatdatetime(rs2("theDate"), vbShortDate)
response.write "
"
response.write rs2("title")
rs2.MoveNext
%>
|
<%
End If
If Not rs2.EOF Then
%>
| " width="89" height="52"> |
|
<%
response.write formatdatetime(rs2("theDate"), vbShortDate)
response.write "
"
response.write rs2("title")
rs2.MoveNext
%>
|
<%
End If
If Not rs2.EOF Then
%>
| " width="89" height="52"> |
|
<%
response.write formatdatetime(rs2("theDate"), vbShortDate)
response.write "
"
response.write rs2("title")
rs2.MoveNext
%>
|
<%
End If
rs2.close
%>
|
|
<%
set rs = nothing
Conn.close : set Conn = nothing
end if
Function AddBrToCrLf(strInput)
AddBrToCrLf = Replace(strInput, vbCrLf, "
" & vbCrLf)
End Function
%>
| |
6355 Corte Del Abeto C-100 Carlsbad, CA 92009
Phone: 760.603.9777 © 2005,
All rights reserved. Calvary Chapel Carlsbad
|
|